home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
misc
/
amag
/
9303b.lha
/
ARexx & Assembler
/
Listing2.arexx
< prev
next >
Wrap
Text File
|
1993-02-25
|
301b
|
15 lines
/* Strings */
ADDRESS COMMAND
OPTIONS PROMPT "ein Satz> "
PARSE PULL satz
DO i=1 TO WORDS(satz)
SAY WORD(satz,i)
END
DO i=2 TO LENGTH(satz)
SAY LEFT(satz,i)
END
SAY "Und nun ohne Vokale :"
SAY COMPRESS(satz,"AEIOUaeiou")
SAY "Und jetzt alles mit A :"
SAY TRANSLATE(satz,"AAAAAaaaaa","AEIOUaeiou")